home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 1.iso / toolbox / www / cgi-bin / test-cgi.pl < prev    next >
Encoding:
Perl Script  |  1996-11-11  |  1.7 KB  |  55 lines
  1. #!/usr/bin/perl
  2. #
  3. # mailform - cgi script for mailing form output
  4. #
  5.  
  6. require('cgi-lib.pl') || die "can\'t require cgi-lib.pl: $!";
  7.  
  8. $request_method = $ENV{'REQUEST_METHOD'};
  9. $query_string = $ENV{'QUERY_STRING'};
  10. $path_info = $ENV{'PATH_INFO'};
  11. $path_info =~ s/^\///; $path_info =~ s/\// /;
  12. $content_length = $ENV{'CONTENT_LENGTH'};
  13. $ENV{'REQUEST_METHOD'} = "POST";
  14.  
  15. sub footer {
  16.     print STDOUT "<HR>\n<A HREF = \"/toolbox/\"><IMG align=\"middle\" SRC=\"/toolbox/www/images/ncsbB5.gif\">Developer Toolbox Home Page</A>\n";
  17.     if ($in{'back_url'}) {
  18.         if ($in{'back_url_image'}) {
  19.             print STDOUT "<BR><A HREF=\"$in{'back_url'}\"><IMG SRC=\"$in{'back_url_image'}\" ALT=\"\">$in{'back_url_label'}</A>\n";
  20.         } else {
  21.             print STDOUT "<BR><A HREF=\"$in{'back_url'}\"><B>$in{'back_url_label'}</B></A>\n";
  22.         }
  23.     }
  24.     if ($in{'return_url'}) {
  25.         if ($in{'return_url_image'}) {
  26.             print STDOUT "<BR><A HREF=\"$in{'return_url'}\"><IMG SRC=\"$in{'return_url_image'}\" ALT=\"\">$in{'return_url_label'}</A>\n";
  27.         } else {
  28.             print STDOUT "<BR><A HREF=\"$in{'return_url'}\"><B>$in{'return_url_label'}</B></A>\n";
  29.         }
  30.     }
  31. }
  32.  
  33. &ReadParse();
  34.  
  35. print STDOUT &PrintHeader;
  36. print STDOUT "<HTML>\n";
  37. print STDOUT "<HEAD>\n";
  38. print STDOUT "<TITLE>Print Out HTTP Environment Variables via Perl Example</TITLE>\n";
  39. print STDOUT "</HEAD>\n";
  40. print STDOUT "<BODY>\n";
  41. print STDOUT "<H2>Print Out of HTTP Env Vars via Perl Script</H2>\n";
  42.  
  43. print STDOUT "argc: $#ARGV<BR>\n";
  44. print STDOUT "argv:";
  45. foreach $_ (@ARGV) {
  46.     print STDOUT " $_ |";
  47. }
  48. print STDOUT "<BR>\n";
  49. foreach $i (sort keys(%ENV)) {
  50.     print STDOUT "$i : $ENV{$i}<BR>\n";
  51. }
  52. &footer;
  53. print STDOUT "</BODY></HTML>\n";
  54.  
  55.